home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 August 15 / CD [VMAG950815].bin / vmagcd / demo / phantas / setup.inf < prev   
Encoding:
Text File  |  1995-03-11  |  1.6 KB  |  52 lines
  1. SetVariable (PRGname,"PHANTASMAGORIA DEMO")
  2. SetVariable (TitleName, "PHANTASMAGORIA DEMO")
  3. SetVariable (TitleSize, 2 300 000)
  4. SetVariable (CopyTitle, "Yes")
  5.  
  6. WindowTitle (<TitleName> " Setup")
  7.  
  8. DisplayMessage ("%n%n"
  9.     "%té▒é╠âZâbâgâAâbâvâvâìâOâëâÇé┼é═éáé╚é╜é╠ânü[âhâfâBâXâNé╔%n"
  10.     "%tâtâ@âôâ^âXâ}âSâèâA DEMO é≡âCâôâXâgü[âïé╡é▄é╖. %n%n"
  11.     "%t OK é▄é╜é═ Enter é≡ëƒé╖é╞âZâbâgâAâbâvé≡îpæ▒é╡é▄é╖%n%n"
  12.     "%tÆåÆfé╖éΘé╞é½é╔é═ Exit é≡âNâèâbâNé╡é─é¡é╛é│éó.","")
  13.  
  14. AskAgain:
  15. GetWinPath (TitlePath)
  16. GetWinSystemPath (SystemPath)
  17. AskYesNo (CopyTitle, <CopyTitle>,
  18.     "òKùvé╚âtâ@âCâïé≡âfâBâXâNé╔âRâsü[é╡é▄é╖é╡é▄é╖%n"
  19.     "é▒éΩéτé╠âtâ@âCâïé≡âRâsü[é╡é─éµéδé╡éóé┼é╖é⌐?","")
  20. IfEqualGoto (<CopyTitle>, "No", emsg)
  21.  
  22. MakePath (<TitlePath>)
  23. CopyFile ("PHANTAS.ICO", <TitlePath> "PHANTAS.ICO",   1000)
  24. GetCurPath (CurPath)
  25. OpenProgmanProgress ("âOâïü[âvé≡ôoÿ^é╡é▄é╖.","")
  26. OpenProgmanGroup (<PRGname>, Delete)
  27. AddProgmanItem (<TitleName>,<CurPath>"demo\PHANDEMO.exe", <TitlePath> "PHANTAS.ICO",0)
  28. CloseProgmanProgress ()
  29.  
  30. emsg:
  31. IfIncompleteGoto (Incomplete)
  32.     IfEqualGoto (<CopyTitle>, "No", SetTitleLessMsg)
  33.         SetVariable (Message, "%n%n%n"
  34.             "%t%tSetup é═ " <TitleName> "é≡É│Åφé╔%n"
  35.             "%t%tâCâôâXâgü[âïé╡é▄é╡é╜.%n"    )
  36.         Goto (lastmsg)
  37.     SetTitleLessMsg:
  38.         SetVariable (Message,"%n%n%n"
  39.             "%t%tSetup é═ " <TitleName> "é≡%n"
  40.             "%t%tâCâôâXâgü[âïé╣é╕é╔ÅIù╣é╡é▄é╡é╜.%n")
  41.         Goto (lastmsg)
  42. Incomplete:
  43.     SetVariable (Message,"%n%n%n"
  44.         "%t%tâZâbâgâAâbâvé═ê┘ÅφÅIù╣é╡é▄é╡é╜.%n"
  45.         "%t%të╜éτé⌐é╠ûΓæΦ(âfâBâXâNé╠ùeù╩é╚é╟é¬ìléªéτéΩé▄é╖) %n"
  46.         "%t%té≡ë≡îêé╡é╜îπüAéαéñêΩôxâZâbâgâAâbâvé≡Ä└ìsé╡é─ë║é│éó%n%n")
  47.     
  48. lastmsg:
  49.  
  50. DisplayMessage (<Message>, "")
  51. End:
  52.